LDEan13()           Creates an EAN 13 pseudo barcode

   LDEan13(cString)

         Arguments   cString is the string that will be translated to
                     barcode.


           Returns   pseudo barcode

       Description   Creates an pseudo barcode.
                     Valid characters for input are only digits.
                     The length of cString has to be exactly 13 characters.


          Examples
                     // create a EAN 13 barcode
                     cBar := LDEan13("4974365610098")